﻿
Namespace LightSwitchApplication

    Public Class CreateNewAccount

        Private Sub CreateNewAccount_InitializeDataWorkspace(ByVal saveChangesTo As Global.System.Collections.Generic.List(Of Global.Microsoft.LightSwitch.IDataService))
            ' Erstellen Sie hier Ihren Code.
            Me.AccountProperty = New Account()
            Me.Title = "New Account"
        End Sub

        Private Sub CreateNewAccount_Saved()
            ' Erstellen Sie hier Ihren Code.
            Me.Close(False)
            Application.Current.ShowDefaultScreen(Me.AccountProperty)
        End Sub

    End Class

End Namespace